home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 January
/
Ahoy_Magazine_87-01_1987_Double_L.d64
/
Perma Line
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
40 lines
10 rem *** perma-line *** buck childress ***
20 rem *** p.o. box 13575 salem, or 97309 ***
30 printchr$(147)"loading and checking data line:":j=52000:l=110:c=11
40 printchr$(19)tab(31)l:print:forb=0toc:reada:ifa<0ora>255then60
50 pokej+b,a:x=x+a:nextb:reada:ifa=xthen70
60 print"error in data line:"l:end
70 x=0:j=j+12:l=l+10:ifl<390then40
80 ifl=390thenc=12:goto40
90 print"the data is ok and loaded...":print
100 print"sys 52000 to activate...":new
110 data32,33,204,169,0,162,160,133,251,134,252,170,1700
120 data161,251,129,251,230,251,208,248,230,252,165,252,2628
130 data201,192,144,240,173,3,3,201,203,208,9,169,1746
140 data131,162,56,160,164,76,136,203,142,126,169,169,1694
150 data76,162,156,160,203,141,108,164,142,109,164,140,1725
160 data110,164,162,187,160,203,141,156,164,142,157,164,1910
170 data140,158,164,162,167,160,203,142,123,168,140,124,1851
180 data168,162,175,160,203,141,197,168,142,198,168,140,2022
190 data199,168,169,147,162,36,160,203,141,2,3,140,1530
200 data3,3,104,104,76,15,204,32,30,204,142,124,1041
210 data204,76,131,164,173,124,204,208,3,76,113,164,1640
220 data76,116,164,169,0,141,124,204,76,89,166,169,1494
230 data0,141,124,204,165,95,233,1,76,201,168,32,1440
240 data107,169,165,122,166,123,141,121,204,142,122,204,1786
250 data169,255,162,1,133,122,134,123,202,134,251,160,1846
260 data6,32,115,0,176,20,201,48,144,16,166,251,1175
270 data208,6,201,48,240,239,133,251,136,240,32,76,1810
280 data213,203,192,2,176,12,165,251,201,54,144,6,1619
290 data165,21,201,234,144,13,173,121,204,174,122,204,1776
300 data133,122,134,123,76,159,164,104,104,162,0,189,1470
310 data44,204,240,7,32,210,255,232,76,15,204,76,1595
320 data116,164,162,54,44,162,55,120,134,1,162,47,1221
330 data134,0,88,96,17,84,72,69,32,77,65,88,822
340 data73,77,85,77,32,76,73,78,69,32,78,85,835
350 data77,66,69,82,32,73,83,32,54,53,53,51,725
360 data53,46,13,0,17,80,69,82,77,65,45,76,623
370 data73,78,69,32,73,83,32,79,78,46,13,0,656
380 data17,80,69,82,77,65,45,76,73,78,69,32,763
390 data73,83,32,79,70,70,46,13,0,66,85,67,75,759